home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 July
/
Ahoy_Magazine_88-07_1988_Double_L.d64
/
Split Face
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
677b
|
14 lines
1 a=49152:rem * (a=4864 for the c-128) * (both versions can be relocated.) *
2 forj=atoa+107:readb:pokej,b:x=x+b:nextj
3 ifx<>17061thenprint"error in data...":end
4 rem *** you could place a return here if this is used as a subroutine. ***
5 data169,20,133,250,169,0,162,4,160,216,133,251
6 data133,253,134,252,132,254,162,24,160,38,177,251
7 data200,145,251,136,177,253,200,145,253,136,136,192
8 data20,176,239,160,20,169,32,145,251,160,1,177
9 data251,136,145,251,200,177,253,136,145,253,200,200
10 data192,21,144,239,160,19,169,32,145,251,165,251
11 data24,105,40,133,251,144,2,230,252,165,253,24
12 data105,40,133,253,144,2,230,254,202,16,181,160
13 data10,202,208,253,136,208,250,198,250,208,153,96